home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 6 / Amiga Format AFCD06 (Nov 1996, Issue 90).iso / serious / shareware / workbench / dosprefs / install-dosprefs < prev    next >
Text File  |  1996-09-04  |  3KB  |  160 lines
  1. ;
  2. ;    $VER: Install-DOSPrefs 2.2 (13.07.94)
  3. ;
  4. ;    Install script for DOSPrefs
  5. ;    © Copyright 1993-94 by Norbert Püschel
  6. ;    All Rights Reserved
  7. ;    
  8.  
  9. ; strings
  10.  
  11. (set intro
  12. (cat "\n Welcome to the installation of DOSPrefs !\n\n"
  13.      "© Copyright 1993-94 by Norbert Püschel\n"
  14.      "All Rights Reserved"
  15. ))
  16.  
  17. (set bad-kick
  18. (cat "\n\n\nYou must be using at least Kickstart 2.04 (Version 37.175) !"
  19. ))
  20.  
  21. (set copying-DOSPrefs
  22. (cat "Copying the DOSPrefs program ..."
  23. ))
  24.  
  25. (set copying-catalogs
  26. (cat "Copying the catalog files for DOSPrefs ..."
  27. ))
  28.  
  29. (set which-languages
  30. (cat "\nWhich languages should be installed ?"
  31. ))
  32.  
  33. (set which-languages-help
  34. (cat "The Amiga, and the DOSPrefs commodity, normally use the "
  35.      "english language. As you have Workbench(tm) 2.1 or better, "
  36.      "you can make the Amiga use other languages.\n"
  37.      "If you want DOSPrefs to use the same languages as the Amiga Workbench "
  38.      "then a catalog file must be copied to your system disk for each "
  39.      "language supported.\n"
  40.      "Simply check the boxes of the languages you wish to have available "
  41.      "on your system.\n\n\n\n\n"
  42.      @askoptions-help
  43. ))
  44.  
  45. (set copying-help
  46. (cat "Copying online help for DOSPrefs ..."
  47. ))
  48.  
  49. (set install-help
  50. (cat "\n\n\n\n\n\nDo you want to install the online help ?"
  51. ))
  52.  
  53. (set install-help-help
  54. (cat "You have the AmigaGuide(tm) online help system installed.\n" 
  55.      "DOSPrefs supports it, but it needs help files to do so.\n"
  56. ))
  57.  
  58. ; Kickstart version test
  59.  
  60. (if (< (/ (getversion) 65536) 37)
  61. (
  62.  (abort bad-kick)
  63. ))
  64.  
  65. ; here we go
  66.  
  67. (welcome intro)
  68.  
  69. ; install Program
  70.  
  71. (set @default-dest "SYS:WBStartup")
  72.  
  73. (copyfiles
  74.   (prompt copying-DOSPrefs)
  75.   (help @copylib-help)
  76.   (source "DOSPrefs")
  77.   (dest "SYS:WBStartup")
  78.   (infos)
  79.   (optional force askuser)
  80. )
  81.  
  82. ; install catalogs
  83.  
  84. (if (exists "Locale:catalogs")
  85. (
  86.   (set languages 
  87.     (askoptions 
  88.       (prompt which-languages)
  89.       (help   which-languages-help)
  90.       (choices
  91.         "english"
  92.         "dansk"
  93.         "deutsch"
  94.         "español"
  95.         "français"
  96.         "italiano"
  97.       )
  98.     )
  99.   )
  100.    
  101.   (set n 1)
  102.   (while (set language (select n
  103.            "english"
  104.            "dansk"
  105.            "deutsch"
  106.            "español"
  107.            "français"
  108.            "italiano"
  109.            ""
  110.          ))
  111.   (
  112.     (if (IN languages n)
  113.     (
  114.       (copyfiles
  115.         (prompt copying-catalogs)
  116.         (help @copylib-help)
  117.         (source (cat "catalogs/" language "/DOSPrefs.catalog"))
  118.         (dest (cat "Locale:catalogs/" language))
  119.         (optional force askuser)
  120.       )
  121.     ))
  122.     (set n (+ n 1))
  123.   ))
  124. )
  125. (
  126.   (set languages 0)
  127. ))
  128.  
  129. (if (AND (exists "LIBS:amigaguide.library") (exists "HELP:"))
  130. (
  131.   (if(askbool
  132.        (prompt install-help)
  133.        (help install-help-help)
  134.        (default 1)
  135.      )
  136.   (
  137.     (set n 0)
  138.     (while (set language (select n
  139.              "english"
  140.              "deutsch"
  141.              "italiano"
  142.              "français"
  143.              ""
  144.            ))
  145.     (
  146.       (if (IN languages n)
  147.       (
  148.         (copyfiles
  149.           (prompt copying-help)
  150.           (help @copylib-help)
  151.           (source (cat "help/" language "/DOSPrefs.guide"))
  152.           (dest (cat "HELP:" language))
  153.           (optional force askuser)
  154.         )
  155.       ))
  156.       (set n (+ n 1))
  157.     ))
  158.   ))
  159. ))
  160.